Imports ccapps.persistent.authorization
Imports System.Data.OracleClient.OracleConnection

Namespace Web.page
    Public Class menu_admin
        Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub

        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here

            Dim group As String = Request.QueryString("group")


            Dim myRow As DataRow
            Response.Write("<html>")
            Response.Write("<head>")
            Response.Write("<link rel='stylesheet' type='text/css' href='/ccapps/web/css/style.css'> ")
            Response.Write("</head>")
            Response.Write("<BODY>")
            Response.Write("<div style=left:'13';POSITION: absolute;> ")
            Response.Write("<SCRIPT type='text/javascript'> ")
            Response.Write("BrowserName = navigator.appName; ")
            Response.Write("BrowserVersion = parseInt(navigator.appVersion); ")
            Response.Write("</SCRIPT> ")
            Response.Write("<SCRIPT src='/ccapps/web/js/navigation.js' type='text/javascript'></SCRIPT> ")
            Response.Write("<SCRIPT type='text/javascript'> ")

            Response.Write("var counter = 0 ;")
            Response.Write("  var Link = new Array(); ")

            Dim user As String = Session("user")
            For Each myRow In Get_menu(Session("user"), group).Rows

                If myRow(1) = "0" Then
                    Response.Write("  Link[counter++] = '0|" & myRow(2) & "|" & myRow(3) & "|anaframe'; ")
                Else
                    Response.Write("  Link[counter++] = '1|" & myRow(2) & "|" & myRow(3) & "|anaframe'; ")
                End If

            Next

            'Response.Write("  Link[counter++] = '0|Billing Grup1'; ")
            'Response.Write("  Link[counter++] = '1|Employee Over Limit|/ccapps/web/page/employeeOverLimitYeni.aspx|anaframe'; ")
            'Response.Write("  Link[counter++] = '1|LA Contract Update|/ccapps/web/page/LaContractUpdate.aspx|anaframe'; ")

            Response.Write("  startup('1'); ")

            Response.Write("			</SCRIPT> ")
            Response.Write("		</div> ")
            Response.Write("	</BODY> ")
            Response.Write("</html> ")



        End Sub

    End Class

End Namespace